home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 231 / 231.d81 / disk eraser (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  58 lines
  1. 5 dq=peek(186)
  2. 10 a=a+1:ifa=1thenload"moveit.o",dq,1
  3. 20 poke808,239:poke792,193
  4. 30 poke53280,.:poke53281,.
  5. 40 print"[147][159]     [196]ispute?'s [199]azelle presents:"
  6. 50 print"     [195][207][205][205][207][196][207][210][197] 64/128 [196][201][211][203] [197][210][193][211][197][210]"
  7. 60 print"[129]           [160][194]y [205]ike [205]aynard"
  8. 70 print"[149]  [195]opyright 1987, [206]o rights reserved"
  9. 80 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  10. 90 print"    [208]roceeding to erase your disk ..."
  11. 100 print"[158]                                        ";
  12. 110 print"     [196]o not press the [210][213][206]/[211][212][207][208] key!     ";
  13. 120 print"                                        "
  14. 122 mm$=""
  15. 125 open15,dq,15:open8,dq,8,"#"
  16. 130 fortr=1to35
  17. 135 print#15,"u1:8 0"tr;.
  18. 140 printmm$"[197]rasing [212]rack:"tr
  19. 150 gosub200:next
  20. 160 close8:close15
  21. 170 print"[154][215]ould you like to erase another?"
  22. 175 print"([209][154],[210][154],[217][154],[212][154],[206][154],[[210][197][212][213][210][206][154]])?":poke198,.
  23. 180 geta$
  24. 185 ifa$<>"q"anda$<>"r"anda$<>"y"anda$<>"t"anda$<>"n"anda$<>chr$(13)then180
  25. 190 ifa$="n"then6000
  26. 195 print"[207]k, here goes ...":fora=1to1000:next:goto20
  27. 200 ifpeek(145)<>127thenreturn
  28. 205 close8:close15:poke53280,peek(162):poke53281,peek(162)
  29. 210 fordd=1to100:poke53270,peek(53270)or16
  30. 215 r=peek(162)
  31. 220 ifr>100thenpoke53265,peek(53265)or32
  32. 230 ifr<100thenpoke53265,peek(53265)and255-32
  33. 240 ad=int(rnd(0)*980)+1024
  34. 250 sys49152,57344,57344+20,ad
  35. 255 sys49152,40960,40960+20,ad+54272
  36. 260 next
  37. 270 fora=1to500:ifpeek(145)=127then290
  38. 280 next
  39. 290 poke53265,peek(53265)and255-32
  40. 300 poke53270,peek(53270)and255-16
  41. 305 poke53270,peek(53270)and255-8
  42. 310 fora=1to1500:next
  43. 315 poke53270,peek(53270)or8
  44. 320 poke53280,14:poke53281,6
  45. 330 print"[147]"chr$(142)"[154]    **** commodore 64 basic v2 ****"
  46. 340 print" 64k ram system  38911 basic bytes free"
  47. 350 print"ready.":poke204,.
  48. 360 fora=1to4500:next
  49. 370 a$="i told you not to press run/stop!!"
  50. 380 fora=1tolen(a$):printmid$(a$,a,1);
  51. 390 forb=1to10:nextb,a
  52. 400 fora=1to4500:next:poke204,1:goto20
  53. 6000 open15,dq,15,"r0:connect=connect":input#15,er:close15:ifer<>63thenend
  54. 6010 poke808,237:poke792,71:load"connect",dq
  55. 59999 end
  56. 60000 d=peek(186):open1,d,15,"i0":n$="disk eraser"
  57. 60001 print#1,"s0:"+n$:close1:saven$,d:end
  58.